source('~/.active-rstudio-document')
crime
crime
#printing the results
res
library(A3)
library(askpass)
library(assertthat)
library(backports)
library(callr)
library(cellranger)
library(classInt)
library(cli)
library(colorspace)
library(crayon)
library(desc)
library(digest)
library(e1071)
library(ellipsis)
library(evaluate)
library(fansi)
library(glue)
library(highr)
library(hms)
library(jpeg)
library(lifecycle)
library(magrittr)
library(markdown)
library(pillar)
library(pkgbuild)
library(pkgconfig)
library(pkgload)
library(plotrix)
library(png)
library(praise)
library(prettyunits)
library(processx)
library(boot, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(class, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(cluster, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(codetools, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(compiler, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(foreign, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(grid, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(KernSmooth, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(lattice, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(MASS, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(Matrix, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(nlme, lib.loc = "C:/Program Files/R/R-3.6.3/library")
library(nnet, lib.loc = "C:/Program Files/R/R-3.6.3/library")
source('~/.active-rstudio-document')
#calculate
res <-prop.test (x= c(345,132), n=c(365,135))
source('~/.active-rstudio-document')
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
source('~/.active-rstudio-document')
source('~/.active-rstudio-document')
source('~/.active-rstudio-document')
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135))
#printing the results
res
source('~/.active-rstudio-document')
source('~/.active-rstudio-document')
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135))
#printing the results
res
res$p.value
ress$estimate
res$estimate
res$conf.int
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135))
#printing the results
res
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135), alternative = "greater")
#printing the results
res
res$p.value
res$estimate
res$conf.int
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135), alternative = "less")
#printing the results
res
res$p.value
res$estimate
res$conf.int
#calculate
res <-prop.test (x= c(345,132), n=c(365,135), alternative = "greater")
#printing the results
res
res$p.value
res$estimate
res$conf.int
, ncol =2, byrow =
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
res <- matrix(c(365,135,500,500),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(365,135), n=c(500,500), alternative = "greater")
#printing the results
res
res$p.value
res$estimate
res$conf.int
res <- matrix(c(365,135,500,500),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(365,135), n=c(500,500), alternative = "greater")
#printing the results
res
res$p.value
res$estimate
res$conf.int
res <- matrix(c(345,132,365,135),ncol=2,byrow=TRUE)
rownames(res) <- c("Murder or manslaughter(x)", "Subject by gender(n)")
colnames(res) <- c("Male", "Female")
res = as.table(res)
res
#calculate
res <-prop.test (x= c(345,132), n=c(365,135), alternative = "greater")
#printing the results
res
res$p.value
res$estimate
res$conf.int
